home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / bin / waisretrieve < prev    next >
Encoding:
Text File  |  1995-07-26  |  1.7 KB  |  78 lines
  1. #!/bin/sh
  2. # WIDE AREA INFORMATION SERVER SOFTWARE:
  3. #   No guarantees or restrictions.  See the readme file for the full standard
  4. #   disclaimer.    
  5. #
  6. # A shell script to retrieve a document from the docid.
  7. #
  8. # Author: jonathan@think.com
  9. # Date: Sun Feb 16 1992
  10. #
  11. # Change log:
  12. # $Log: waisretrieve.script,v $
  13. # Revision 1.1  1994/08/05  06:57:45  pfeifer
  14. # Initial revision
  15. #
  16. # Revision 1.3  92/04/28  15:39:21  jonathan
  17. # Added DEBUG option
  18. # 
  19. # Revision 1.2  92/02/16  18:36:12  jonathan
  20. # Modified usage (and test)
  21. # 
  22. # Revision 1.1  92/02/16  18:30:11  jonathan
  23. # Initial revision
  24. # 
  25. #
  26.  
  27. if (test $# -ne 1)
  28. then
  29.  echo "usage: $0 DOC_SPEC"
  30.  echo "  where DOC_SPEC is docid:database[@host[:port]][%type]"
  31.  echo "        docid and database are server specific,"
  32.  echo "        host and port are optional."
  33.  exit 1
  34. fi
  35.  
  36. tdir=/tmp
  37. qfile=$tdir/wr$$.q
  38. sfile=wr$$.src
  39. db=`echo $1 | awk -F: '{print $2}' | awk -F@ '{print $1}'`
  40. host=`echo $1 | awk -F: '{print $2}' | awk -F@ '{print $2}'`
  41. id=`echo $1 | awk -F: '{print $1}'`
  42. tcpport=`echo $1 | awk -F: '{print $3}' | awk -F% '{print $1}'`
  43. type=`echo $1 | awk -F% '{print $2}'`
  44. if (test -n "$tcpport")
  45. then
  46.  port=$tcpport
  47. else
  48.  port=210
  49. fi
  50.  
  51. cat >$tdir/$sfile <<EoF
  52. (:source
  53.  :version 3
  54.  :database-name "$db"
  55.  :ip-name "$host"
  56.  :tcp-port $port
  57. )
  58. EoF
  59.  
  60. cat >$qfile <<EoF
  61. (:question :version 2 
  62.   :result-documents 
  63.   ( (:document-id
  64.      :document
  65.      (:document
  66.        :doc-id
  67.        (:doc-id :original-database `stringtoany $db` 
  68.         :original-local-id `stringtoany "$id"` )
  69.        :number-of-bytes -1
  70.        :type "$type"
  71.        :source
  72.        (:source-id :filename "$sfile") ) ) ) ) 
  73. EoF
  74.  
  75. waisq -f $qfile -s $tdir/ -v 1
  76.  
  77. $DEBUG rm $qfile $tdir/$sfile
  78.